https://download.microsoft.com/download/5/e/a/5ea6017b-e7fe-40ca-8c3e-57387259f3bf/AccessRuntime_x86_en-us.exe
https://download.microsoft.com/download/5/e/a/5ea6017b-e7fe-40ca-8c3e-57387259f3bf/AccessRuntime_x64_en-us.exe

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
On Error GoTo errHandler
conn.Open "Provider=Microsoft.ACE.OLEDB.15.0;" & _
          "Data Source=D:\MarkServer\Setup\CustomerCare.xlsx;" & _
          "Extended Properties=""Excel 12.0 Xml;HDR=YES"""         
conn.CursorLocation = adUseClient
rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM [Sheet1$]", conn, adOpenStatic, adLockReadOnly
With MSHFlexGrid1
    Set MSHFlexGrid1.DataSource = rs
End With
Set rs.ActiveConnection = Nothing
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing